home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / util / wb / startpanel.lha / StartPanel / Install_StartPanel < prev    next >
Text File  |  1998-12-07  |  4KB  |  142 lines
  1.  
  2. ;
  3. ; $VER: Installer script 1.1 (7.12.1998)
  4. ;
  5. ;  Copyright 1998 Justin Cruttenden and Chris Page
  6. ;
  7. ;  for StartPanel, Copyright 1998 Chris Page (chris@worldfoundry.demon.co.uk)
  8. ;
  9.  
  10. (set #def_SP_ver_030    0)
  11. (set #def_SP_ver_040    1)
  12. (set #def_SP_ver_060    2)
  13.  
  14. ;----------------------------------------------------------------------------
  15.  
  16. ; ***** English
  17. (set #wrongMUI "StartPanel needs at least MUI3.8 to run\n")
  18. (set #wrongCPU "StartPanel needs at least a 68030 CPU to run\n")
  19.  
  20. (set #SP_dir  (cat "Choose directory to install StartPanel\n"
  21.                     "(NO drawer will be created!)"))
  22. (set #SPP_dir  (cat "Choose directory to install the StartPanel Prefs\n"
  23.                     "(NO drawer will be created!)"))
  24.  
  25. (set #SP_ver (cat "Which processor do you have?"))
  26.  
  27. (set #arexx_prompt "Where do you want to install the ARexx scripts?")
  28.  
  29. (set #docs_prompt (cat "Where do you want to install the Startpanel documentation?\n"
  30.                        "(NO directory will be created!)"))
  31.  
  32. (set #done_1   (cat "\nStartPanel has been succesfuly installed.\n\n"
  33.                     "Click the \"StartPanel\" icon in the\n"))
  34. (set #done_2        "\ndirectory.")
  35.  
  36.  
  37. ;----------------------------------------------------------------------------
  38.  
  39. ;**** Checking environment
  40. (set MUI_ver (getversion "MUI:libs/muimaster.library"))
  41. (if (AND (< MUI_ver (* 19 65536)) (<> MUI_ver 0)) (abort #wrongMUI))
  42.  
  43. (set cpu_type (database "cpu"))
  44. (if (< cpu_type "68030") (abort #wrongCPU))
  45.  
  46. ;----------------------------------------------------------------------------
  47.  
  48. (complete 0)
  49.  
  50. (set SP_dir
  51.         (askdir
  52.                 (default "SYS:WBStartup")
  53.                 (prompt  #SP_dir)
  54.                 (help    @askdir-help)
  55.         )
  56. )
  57.  
  58.  
  59. (complete 10)
  60.  
  61. (set SPP_dir
  62.         (askdir
  63.                 (default "SYS:Prefs")
  64.                 (prompt  #SPP_dir)
  65.                 (help    @askdir-help)
  66.         )
  67. )
  68.  
  69.  
  70. (complete 15)
  71.  
  72. (set SP_ver
  73.         (askchoice
  74.                 (prompt  #SP_ver)
  75.                 (help @askoptions-help)
  76.                 (choices "68030" "68040" "68060")
  77.                 (default #def_SP_ver_030)
  78.         )
  79. )
  80.  
  81.  
  82. (complete 20)
  83.  
  84. (set ARexx_dir
  85.        (askdir
  86.                 (default "REXX:")
  87.                 (prompt  #arexx_prompt)
  88.                 (help    @askdir-help)
  89.        )
  90. )
  91. (complete 25)
  92.  
  93. (set Doc_dir
  94.        (askdir
  95.                 (default "HELP:")
  96.                 (prompt  #docs_prompt)
  97.                 (help    @askdir-help)
  98.        )
  99. )
  100.  
  101.  
  102. ;--- Install files...
  103.  
  104. (complete 30)
  105.  
  106. (makedir SP_dir (infos))
  107.  
  108. (if (= SP_ver #def_SP_ver_030 ) (copyfiles (source "StartPanel.030") (dest SP_dir) (newname "StartPanel") (help @copyfiles-help)))
  109. (if (= SP_ver #def_SP_ver_040 ) (copyfiles (source "StartPanel.040") (dest SP_dir) (newname "StartPanel") (help @copyfiles-help)))
  110. (if (= SP_ver #def_SP_ver_060 ) (copyfiles (source "StartPanel.060") (dest SP_dir) (newname "StartPanel") (help @copyfiles-help)))
  111.  
  112. (copyfiles (source "StartPanel.info") (dest SP_dir) (help @copyfiles-help))
  113.  
  114. (complete 40)
  115.  
  116. (copyfiles (source "StartPanelPrefs") (dest SPP_dir) (infos) (help @copyfiles-help))
  117.  
  118. (complete 50)
  119.  
  120. (copyfiles (source "Docs/") (dest Doc_dir) (all))
  121.  
  122. (complete 60)
  123.  
  124. (copyfiles (source "ARexx/") (dest ARexx_dir) (all))
  125.  
  126. (complete 70)
  127. (copylib (prompt "MUI - TWFmultiLED.mcc") (source "libs/MUI/TWFmultiLED.mcc") (dest "MUI:Libs/MUI/") (confirm) (help @copylib-help))
  128.  
  129. (complete 80)
  130. (copylib (prompt "MUI - TWFmultiLED.mcp") (source "libs/MUI/TWFmultiLED.mcp") (dest "MUI:Libs/MUI/") (confirm) (help @copylib-help))
  131.  
  132. (complete 90)
  133. (copylib (prompt "WBStart.library") (source "libs/WBstart.library") (dest "LIBS:") (confirm) (help @copylib-help))
  134.  
  135. (complete 100)
  136. (message #done_1 "\"" SP_dir "\"" #done_2)
  137.  
  138.  
  139.  
  140. (exit (QUIET))
  141.  
  142.